; Music of Short Circuit (1987) (Ocean Software)
; Ripped by Megachur the 04/11/2006

	write "SHORTCIR.BIN"

music_date_rip	equ &04b6
music_adr	equ &7200
first_theme	equ 0
last_theme	equ 0

	read "music_header_v1_0.asm"

.music_end
.l7200
	db #00

;	jp l7246        ; play music    modified by Megachur
	ld l,(ix+#00)
	ld h,(ix+#01)
;
.init_music
;
	ld hl,l7900     ; added by Megachur
	push hl
	ld hl,l7877
	ld de,l7878
	ld bc,#007d
	ld (hl),#00
	ldir
	pop hl
	ld (l77ff),hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld c,(hl)
	inc hl
	ld b,(hl)
	inc hl
	ld a,l
	ld (l788e),a
	ld a,h
	ld (l788f),a
	push hl
	add hl,de
	ld a,l
	ld (l78b8),a
	ld a,h
	ld (l78b9),a
	pop hl
	add hl,bc
	ld a,l
	ld (l78e2),a
	ld a,h
	ld (l78e3),a
	ld a,#01
	ld (l7200),a
	ret
;
.play_music
.l7246
;
	ld a,(l7200)
	or a
	ret z
	xor a
	ld (l7802),a
	ld ix,l7877
	call l726b
	ld a,#01
	ld (l7802),a
	ld ix,l78a1
	call l726b
	ld a,#02
	ld (l7802),a
	ld ix,l78cb
.l726b
	ld a,(ix+#00)
	or a
	jr z,l72e3
	dec (ix+#00)
	ld a,(ix+#08)
	or a
	jr z,l7280
	dec a
	ld (ix+#08),a
	jr l7295
.l7280
	ld a,(ix+#0a)
	or a
	jr z,l728c
	dec a
	ld (ix+#0a),a
	jr l7295
.l728c
	ld a,(ix+#09)
	ld (ix+#0a),a
	inc (ix+#0b)
.l7295
	ld a,(ix+#01)
	and #03
	ld l,a
	ld h,#00
	add hl,hl
	ld de,l781f
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	call l7342
	ld l,(ix+#0c)
	ld h,(ix+#0d)
	ld a,(ix+#11)
	add h
	ld h,a
	ld (ix+#0d),h
	ld a,(ix+#01)
	srl a
	srl a
	srl a
	and #07
	ld b,a
	call nz,l754b
	ld a,(ix+#01)
	rlca
	rlca
	and #03
	ld b,a
	call nz,l74ea
	call l750e
	ld a,(ix+#02)
	and #03
	call nz,l7530
	call l73b4
	call l7343
	ret
.l72e3
	ld a,(ix+#16)
	ld (ix+#24),a
	ld l,(ix+#17)
	ld h,(ix+#18)
	ld a,(hl)
	or a
	jp z,l759f
	bit 7,a
	jp nz,l75b7
	cp #1a
	jp nc,l7311
	push hl
	pop iy
	dec a
	ld l,a
	ld h,#00
	add hl,hl
	ld de,l7825
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	call l7342
.l7311
	ld l,(ix+#17)
	ld h,(ix+#18)
	inc hl
	inc hl
	ld (ix+#17),l
	ld (ix+#18),h
	ld a,(l7802)
	or a
	jp nz,l726b
	ld de,(l77ff)
	push hl
	ex de,hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	inc hl
	inc hl
	add hl,de
	ex de,hl
	pop hl
	or a
	sbc hl,de
	jp c,l726b
	xor a
	ld (l7200),a
	jp l0980
.l7342
	jp (hl)
.l7343
	ld a,(ix+#28)
	bit 7,a
	ld c,#00
	jr z,l734e
	ld c,#ff
.l734e
	add l
	ld l,a
	ld a,h
	adc c
	ld h,a
	ld a,(l7802)
	add a
	ld e,a
	ld c,l
	call l0996
	ld a,e
	inc a
	ld c,h
	call l0996
	ld a,(ix+#06)
	ld c,a
	ld a,(l7802)
	add #08
	call l0996
	bit 2,(ix+#02)
	jr z,l737c
	ld c,(ix+#20)
	ld a,#06
	call l0996
.l737c
	bit 6,(ix+#02)
	jr z,l73a8
	ld c,(ix+#21)
	ld a,#0b
	call l0996
	ld c,(ix+#22)
	ld a,#0c
	call l0996
	ld a,(ix+#02)
	and #03
	jr z,l73a8
	ld a,(ix+#24)
	and #80
	jr nz,l73a8
	ld c,(ix+#23)
	ld a,#0d
	call l0996
.l73a8
	ld a,(l7801)
	or #80
	ld c,a
	ld a,#07
	call l0996
	ret
.l73b4
	call l73ed
	ld a,(ix+#24)
	and #80
	ret nz
	ld a,(ix+#0c)
	or (ix+#0d)
	call z,l745a
	bit 2,(ix+#02)
	call nz,l740b
	bit 3,(ix+#02)
	call nz,l7474
	bit 4,(ix+#02)
	call nz,l745f
	bit 5,(ix+#02)
	jr z,l73e5
	ld (ix+#06),#10
.l73e5
	bit 6,(ix+#02)
	call nz,l742b
	ret
.l73ed
	ld a,(l7802)
	ld d,#08
	ld e,#01
.l73f4
	or a
	jr z,l73fe
	dec a
	rlc d
	rlc e
	jr l73f4
.l73fe
	ld a,e
	xor #ff
	ld e,a
	ld a,(l7801)
	and e
	or d
	ld (l7801),a
	ret
.l740b
	ld a,(ix+#0c)
	or (ix+#0d)
	ret z
	ld a,(l7802)
	ld d,#08
.l7417
	or a
	jr z,l741f
	dec a
	rlc d
	jr l7417
.l741f
	ld a,d
	xor #ff
	ld d,a
	ld a,(l7801)
	and d
	ld (l7801),a
	ret
.l742b
	ld (ix+#21),l
	ld (ix+#22),h
	srl (ix+#21)
	rr (ix+#22)
	srl (ix+#21)
	rr (ix+#22)
	srl (ix+#21)
	rr (ix+#22)
	srl (ix+#21)
	rr (ix+#22)
	srl (ix+#21)
	rr (ix+#22)
	ret
.l745a
	xor a
	ld (ix+#06),a
	ret
.l745f
	ld a,(l7802)
	ld d,#01
.l7464
	or a
	jr z,l746c
	dec a
	rlc d
	jr l7464
.l746c
	ld a,(l7801)
	or d
	ld (l7801),a
	ret
.l7474
	push hl
	ld b,#06
.l7477
	srl h
	rr l
	djnz l7477
	ld a,l
	pop hl
	ld (ix+#20),a
	ret
.l7483
	dec (ix+#27)
	ret nz
	ld a,(ix+#25)
	ld (ix+#27),a
	ld a,(ix+#04)
	srl a
	srl a
	srl a
	srl a
	add (ix+#06)
	cp (ix+#03)
	jr c,l74aa
	inc (ix+#01)
	ld a,(ix+#03)
	ld (ix+#27),#01
.l74aa
	ld (ix+#06),a
	ret
.l74ae
	dec (ix+#27)
	ret nz
	ld a,(ix+#26)
	ld (ix+#27),a
	ld a,(ix+#04)
	and #0f
	ld b,a
	ld c,(ix+#05)
	srl c
	srl c
	srl c
	srl c
	ld a,(ix+#03)
	cp c
	jr nc,l74d0
	ld c,a
.l74d0
	ld a,(ix+#06)
	sub b
	jr c,l74d9
	cp c
	jr nc,l74dd
.l74d9
	inc (ix+#01)
	ld a,c
.l74dd
	ld (ix+#06),a
.l74e0
	ret
.l74e1
	ld a,(ix+#01)
	xor #04
	ld (ix+#01),a
	ret
.l74ea
	ld a,(ix+#0a)
	or a
	call z,l74e1
	ld a,b
	cp #02
	jr nz,l7501
	ld a,(ix+#01)
	and #04
	ret z
	srl h
	rr l
	ret
.l7501
	ld a,(ix+#01)
	and #04
	ret z
	ld l,(ix+#0e)
	ld h,(ix+#0f)
	ret
.l750e
	ld a,(ix+#08)
	or a
	ret nz
	ld a,(ix+#0a)
	or a
	ret nz
	ld a,(ix+#0b)
	bit 0,a
	ret z
	and #03
	cp #02
	jr c,l752a
	ld a,(ix+#19)
	add l
	ld l,a
	ret
.l752a
	ld a,l
	sub (ix+#19)
	ld l,a
	ret
.l7530
	cp #01
	jr z,l7535
	ret
.l7535
	ld a,(ix+#24)
	and #7f
	jr nz,l7547
	ld a,(ix+#24)
	xor #80
	or (ix+#16)
	ld (ix+#24),a
.l7547
	dec (ix+#24)
	ret
.l754b
	ld a,(ix+#08)
	or a
	ret nz
	ld a,b
	cp #01
	jr z,l7570
	ld e,(ix+#10)
	ld d,#00
	cp #03
	jr nz,l7568
	ld a,e
	cpl
	add #01
	ld e,a
	ld a,d
	cpl
	adc #00
	ld d,a
.l7568
	add hl,de
	ld (ix+#0c),l
	ld (ix+#0d),h
	ret
.l7570
	push hl
	ld c,(ix+#10)
	ld b,#00
	ld e,(ix+#0e)
	ld d,(ix+#0f)
	or a
	sbc hl,de
	pop hl
	ret z
	jr c,l758f
	or a
	sbc hl,bc
	push hl
	or a
	sbc hl,de
	pop hl
	jr nc,l7598
	jr l7597
.l758f
	add hl,bc
	push hl
	or a
	sbc hl,de
	pop hl
	jr c,l7598
.l7597
	ex de,hl
.l7598
	ld (ix+#0c),l
	ld (ix+#0d),h
	ret
.l759f
	ld (ix+#0c),#00
	ld (ix+#0d),#00
.l75a7
	inc hl
	ld a,(hl)
	cp #ff
	jp z,l7626
	ld (ix+#00),a
	call l7635
	jp l7311
.l75b7
	push hl
	res 7,a
	call l75ee
	add (ix+#15)
	ld b,#00
.l75c2
	cp #0c
	jr c,l75cb
	sub #0c
	inc b
	jr l75c2
.l75cb
	ld l,a
	ld h,#00
	add hl,hl
	ld de,l7803
	add hl,de
	ld a,(hl)
	ld (ix+#0c),a
	inc hl
	ld a,(hl)
	ld (ix+#0d),a
	pop hl
	ld a,b
	or a
	jr z,l75a7
.l75e1
	srl (ix+#0d)
	rr (ix+#0c)
	djnz l75e1
	jp l75a7
.l75ee
	push af
	ld a,(ix+#29)
	or a
	jr z,l7624
	pop af
	push af
	add (ix+#29)
	ld b,#00
.l75fc
	cp #0c
	jr c,l7605
	sub #0c
	inc b
	jr l75fc
.l7605
	ld l,a
	ld h,#00
	add hl,hl
	ld de,l7803
	add hl,de
	ld a,(hl)
	ld (ix+#0e),a
	inc hl
	ld a,(hl)
	ld (ix+#0f),a
	ld a,b
	or a
	jr z,l7624
.l761a
	srl (ix+#0f)
	rr (ix+#0e)
	djnz l761a
.l7624
	pop af
	ret
.l7626
	ld a,(ix+#0c)
	ld (ix+#0e),a
	ld a,(ix+#0d)
	ld (ix+#0f),a
	jp l7311
.l7635
	ld (ix+#06),#00
	ld a,(ix+#07)
	ld (ix+#08),a
	ld a,(ix+#01)
	and #fc
	ld (ix+#01),a
	ld (ix+#27),#01
	ret
.l764c
	ld a,(iy+#01)
	bit 7,a
	jr z,l7659
	and #0f
	ld (ix+#03),a
	ret
.l7659
	push ix
	and #0f
	ld ix,#7877
	ld (ix+#03),a
	ld ix,#78a1
	ld (ix+#03),a
	ld ix,#78cb
	ld (ix+#03),a
	pop ix
	ret
.l7675
	push hl
	push de
	push bc
	ld a,(iy+#01)
	srl a
	srl a
	srl a
	srl a
	ld l,a
	ld h,#00
	add hl,hl
	ld de,l7857
	add hl,de
	ld c,(hl)
	sla c
	sla c
	sla c
	sla c
	inc hl
	ld a,(hl)
	ld (ix+#25),a
	ld a,(iy+#01)
	and #0f
	ld l,a
	ld h,#00
	add hl,hl
	ld de,l7857
	add hl,de
	ld a,(hl)
	and #0f
	or c
	ld (ix+#04),a
	inc hl
	ld a,(hl)
	ld (ix+#26),a
	ld (ix+#27),#01
	pop bc
	pop de
	pop hl
	ret
.l76ba
	ld a,(iy+#01)
	res 6,(ix+#02)
	bit 7,a
	jr z,l76cd
	set 6,(ix+#02)
	set 5,(ix+#02)
.l76cd
	res 7,a
	or a
	jr z,l76de
	set 2,(ix+#02)
	cp #20
	jr nc,l76e7
	ld (ix+#20),a
	ret
.l76de
	ld a,(ix+#02)
	and #03
	ld (ix+#02),a
	ret
.l76e7
	set 3,(ix+#02)
	cp #21
	ret c
	set 4,(ix+#02)
	bit 6,a
	ret z
	res 6,a
	res 4,a
	ld (ix+#20),a
	ret
.l76fd
	ret
.l76fe
	ld a,(iy+#01)
	or a
	jr z,l7712
	ld (ix+#16),a
	ld a,(ix+#02)
	and #fc
	or #01
	ld (ix+#02),a
	ret
.l7712
	ld a,(ix+#02)
	and #fc
	ld (ix+#02),a
	res 7,(ix+#24)
	ld (ix+#16),#00
	ret
.l7723
	ld a,(iy+#01)
	ld (ix+#09),a
	ld (ix+#0a),a
	ret
.l772d
	ret
.l772e
	ld a,(iy+#01)
	and #03
	rrca
	rrca
	ld b,a
	ld a,(ix+#01)
	and #3f
	or b
	ld (ix+#01),a
	ret
.l7740
	ld a,(iy+#01)
	ld (ix+#07),a
	ret
.l7747
	ld a,(iy+#01)
	ld (ix+#05),a
	ret
.l774e
	ld a,(iy+#01)
	xor #ff
	srl a
	srl a
	srl a
	srl a
	srl a
	srl a
	ld (ix+#19),a
	ret
.l7763
	ld a,(iy+#01)
	ld (ix+#11),a
	ret
.l776a
	ld a,(iy+#01)
	ld (ix+#10),a
	ret
.l7771
	ret
.l7772
	ld a,(iy+#01)
	and #07
	ld b,a
	sla b
	sla b
	sla b
	ld a,(ix+#01)
	and #c7
	or b
	ld (ix+#01),a
	ret
.l7788
	ld a,(ix+#1c)
	or a
	jr nz,l7791
	ld a,(iy+#01)
.l7791
	dec a
	ld (ix+#1c),a
	ret z
	ld a,(ix+#1a)
	ld (ix+#17),a
	ld a,(ix+#1b)
	ld (ix+#18),a
	ret
.l77a3
	ld a,(ix+#17)
	ld (ix+#1a),a
	ld a,(ix+#18)
	ld (ix+#1b),a
	ret
.l77b0
	ld a,(ix+#1f)
	or a
	jr nz,l77b9
	ld a,(iy+#01)
.l77b9
	dec a
	ld (ix+#1f),a
	ret z
	ld a,(ix+#1d)
	ld (ix+#17),a
	ld a,(ix+#1e)
	ld (ix+#18),a
	ret
.l77cb
	ld a,(ix+#17)
	ld (ix+#1d),a
	ld a,(ix+#18)
	ld (ix+#1e),a
	ret
.l77d8
	ld a,(iy+#01)
	ld (ix+#15),a
	ret
.l77df
	ld a,(iy+#01)
	ld (ix+#23),a
	ret
.l77e6
	ld a,(iy+#01)
	ld (ix+#28),a
	ret
.l77ed
	ret
.l77ee
	ld a,(iy+#01)
	add (ix+#15)
	ld (ix+#15),a
	ret
.l77f8
	ld a,(iy+#01)
	ld (ix+#29),a
	ret
.l7803 equ $ + 4
.l7802 equ $ + 3
.l7801 equ $ + 2
.l77ff
	db #00,#00,#00,#00,#dd,#0e,#07,#0e
	db #3e,#0d,#80,#0c,#cc,#0b,#23,#0b
	db #83,#0a,#ec,#09,#5d,#09,#d6,#08
	db #57,#08,#e0,#07,#44,#41,#54,#41
.l7825 equ $ + 6
.l781f
	dw l7483,l74ae,l74e0,l764c
	dw l7675,l76ba,l76fd,l76fe
	dw l7723,l772d,l772e,l7740
	dw l7747,l774e,l7763,l776a
	dw l7771,l7772,l7788,l77a3
	dw l77b0,l77cb,l77d8,l77df
	dw l77e6,l77ed,l77ee,l77f8
.l7857
	db #0f,#01,#0d,#01,#0b,#01,#09,#01
	db #07,#01,#05,#01,#03,#01,#02,#01
	db #01,#01,#01,#0a,#01,#1e,#01,#46
	db #01,#6e,#01,#b4,#01,#dc,#01,#ff
.l7878 equ $ + 1
.l7877
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l788e equ $ + 7
	db #00,#00,#00,#00,#00,#00,#00,#00
.l788f
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l78a1 equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l78b9 equ $ + 2
.l78b8 equ $ + 1
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l78cb equ $ + 4
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l78e3 equ $ + 4
.l78e2 equ $ + 3
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00
.l7900
	db #52,#00,#60,#01,#01,#8c,#02,#08
	db #0a,#0d,#0f,#04,#0d,#c8,#00,#15
	db #11,#01,#03,#00,#d4,#0e,#03,#21
	db #d4,#07,#d4,#07,#10,#80,#02,#05
	db #0f,#00,#11,#01,#13,#01,#d4,#07
	db #12,#04,#02,#08,#a4,#0e,#02,#05
	db #13,#01,#d4,#07,#12,#06,#02,#08
	db #a4,#0e,#a4,#0e,#10,#20,#02,#08
	db #0f,#04,#11,#01,#03,#00,#d4,#0e
	db #03,#21,#d4,#07,#d4,#07,#10,#37
	db #03,#00,#d4,#07,#00,#01,#01,#8e
	db #02,#18,#0a,#7a,#11,#00,#93,#07
	db #96,#07,#97,#07,#98,#0e,#98,#0e
	db #00,#af,#10,#02,#93,#07,#96,#07
	db #97,#07,#11,#00,#98,#0e,#98,#07
	db #98,#07,#a2,#07,#a4,#07,#9a,#07
	db #9b,#0e,#9b,#0e,#9b,#07,#a5,#07
	db #a7,#07,#a2,#07,#9d,#15,#9d,#07
	db #9d,#07,#9b,#07,#9d,#07,#9f,#07
	db #a2,#0e,#a2,#07,#9d,#07,#96,#0e
	db #96,#15,#10,#0e,#11,#00,#14,#00
	db #13,#00,#98,#07,#98,#07,#98,#07
	db #96,#0e,#9b,#0e,#9d,#0e,#9d,#07
	db #9b,#07,#98,#07,#9b,#0e,#98,#0e
	db #14,#03,#12,#02,#10,#06,#14,#00
	db #11,#00,#93,#07,#93,#07,#93,#07
	db #93,#07,#93,#07,#00,#2a,#96,#0e
	db #93,#07,#91,#0e,#10,#04,#11,#00
	db #98,#0e,#98,#07,#98,#07,#a2,#07
	db #a4,#07,#9a,#07,#9b,#0e,#9b,#0e
	db #9b,#07,#a5,#07,#a7,#07,#a2,#07
	db #9d,#15,#9d,#07,#9d,#07,#9b,#07
	db #9d,#07,#9f,#07,#a2,#0e,#a2,#07
	db #9d,#07,#96,#0e,#96,#15,#10,#08
	db #11,#00,#14,#00,#13,#00,#98,#07
	db #98,#07,#98,#07,#96,#0e,#9b,#0e
	db #9d,#0e,#9d,#07,#9b,#07,#98,#07
	db #9b,#0e,#98,#0e,#14,#03,#12,#02
	db #10,#02,#14,#00,#13,#00,#11,#00
	db #93,#07,#93,#07,#93,#07,#93,#07
	db #93,#07,#00,#2a,#96,#0e,#93,#07
	db #91,#0e,#10,#04,#14,#05,#12,#02
	db #98,#0e,#98,#0e,#00,#3f,#93,#07
	db #96,#07,#97,#07,#98,#0e,#98,#0e
	db #00,#3f,#00,#01,#01,#8e,#02,#18
	db #0a,#7a,#16,#0a,#00,#01,#11,#00
	db #93,#07,#96,#07,#97,#07,#98,#0e
	db #98,#0e,#00,#af,#10,#02,#93,#07
	db #96,#07,#97,#07,#11,#00,#98,#0e
	db #98,#07,#98,#07,#a2,#07,#a4,#07
	db #9a,#07,#9b,#0e,#9b,#0e,#9b,#07
	db #a5,#07,#a7,#07,#a2,#07,#9d,#15
	db #9d,#07,#9d,#07,#9b,#07,#9d,#07
	db #9f,#07,#a2,#0e,#a2,#07,#9d,#07
	db #96,#0e,#96,#15,#10,#02,#16,#00
	db #11,#00,#02,#9c,#c8,#6f,#c6,#70
	db #c3,#70,#c1,#38,#c6,#38,#10,#02
	db #0b,#aa,#02,#18,#c6,#0e,#c3,#1c
	db #c5,#15,#c5,#07,#c6,#07,#bc,#07
	db #c1,#0e,#c1,#0e,#c3,#0e,#bf,#1c
	db #c1,#1c,#c5,#0e,#c6,#07,#c6,#07
	db #c1,#0e,#c3,#0e,#c6,#1c,#c5,#46
	db #c3,#0e,#c8,#0e,#00,#2a,#0f,#04
	db #cb,#0e,#c8,#0e,#c6,#0e,#cb,#0e
	db #c8,#1c,#ca,#15,#ca,#07,#c8,#07
	db #cd,#07,#d1,#0e,#cd,#0e,#d1,#0e
	db #d2,#1c,#d1,#15,#d2,#07,#cd,#07
	db #cb,#07,#ca,#0e,#ca,#0e,#c8,#0e
	db #c8,#1c,#ca,#46,#cf,#0e,#c8,#0e
	db #00,#54,#02,#19,#11,#00,#bc,#70
	db #c6,#2a,#c5,#2a,#c1,#1c,#c3,#70
	db #c1,#2a,#bf,#15,#be,#07,#bc,#07
	db #ba,#07,#bc,#1c,#08,#02,#10,#02
	db #02,#18,#00,#e0,#08,#03,#00,#e0
	db #13,#00,#11,#00,#19,#03,#17,#07
	db #11,#00,#b0,#07,#b0,#07,#b0,#07
	db #b0,#0e,#b0,#0e,#b0,#07,#19,#05
	db #17,#09,#10,#02,#19,#04,#17,#07
	db #bf,#0e,#bf,#0e,#b6,#07,#b6,#0e
	db #b8,#3f,#12,#02,#08,#00,#c6,#0e
	db #c3,#1c,#c5,#46,#c6,#0e,#c6,#1c
	db #c8,#46,#13,#00,#bc,#07,#bc,#07
	db #bc,#07,#ba,#0e,#bf,#0e,#c1,#0e
	db #c1,#07,#bf,#07,#bc,#07,#bf,#0e
	db #bc,#0e,#14,#03,#12,#02,#14,#00
	db #00,#02,#11,#00,#93,#07,#93,#07
	db #93,#07,#93,#07,#93,#07,#00,#2a
	db #96,#0e,#93,#07,#91,#0e,#10,#02
	db #11,#00,#9f,#06,#9f,#07,#a2,#07
	db #a6,#07,#ab,#07,#00,#2a,#a2,#0e
	db #a2,#07,#a1,#0e,#10,#02,#0f,#04
	db #0d,#01,#09,#14,#11,#00,#c6,#0e
	db #c3,#1c,#c5,#15,#c5,#07,#c6,#07
	db #bc,#07,#c1,#0e,#c1,#0e,#c3,#0e
	db #bf,#1c,#c1,#1c,#c5,#0e,#c6,#07
	db #c6,#07,#c1,#0e,#c3,#0e,#c6,#1c
	db #c5,#46,#c3,#0e,#c8,#0e,#0f,#00
	db #00,#2a,#0f,#04,#cb,#0e,#c8,#0e
	db #c6,#0e,#cb,#0e,#c8,#1c,#ca,#15
	db #ca,#07,#c8,#07,#cd,#07,#d1,#0e
	db #cd,#0e,#d1,#0e,#d2,#1c,#d1,#15
	db #d2,#07,#cd,#07,#cb,#07,#ca,#0e
	db #ca,#0e,#c8,#0e,#c8,#1c,#ca,#46
	db #cf,#0e,#c8,#0e,#14,#f4,#08,#02
	db #00,#54,#10,#02,#13,#00,#bc,#07
	db #bc,#07,#bc,#07,#ba,#0e,#b7,#0e
	db #b9,#0e,#b9,#07,#ba,#07,#bc,#07
	db #ba,#0e,#b9,#0e,#14,#f7,#12,#02
	db #14,#f4,#13,#00,#bf,#07,#bf,#07
	db #bf,#07,#be,#0e,#ba,#0e,#bc,#0e
	db #bc,#07,#ba,#07,#bc,#07,#bf,#0e
	db #c1,#0e,#14,#f7,#12,#02,#14,#00
	db #13,#00,#08,#00,#00,#02,#11,#00
	db #93,#07,#93,#07,#93,#07,#93,#07
	db #93,#07,#00,#2a,#96,#0e,#93,#07
	db #91,#0e,#10,#02,#11,#00,#9f,#06
	db #9f,#07,#a2,#07,#a6,#07,#ab,#07
	db #00,#2a,#a2,#0e,#a2,#07,#a1,#0e
	db #10,#02,#14,#05,#12,#02,#98,#0e
	db #98,#0e,#00,#3f,#93,#07,#96,#07
	db #97,#07,#98,#0e,#98,#0e,#00,#3f
	db #11,#01,#00,#c8,#10,#c8,#00,#01
	db #6a,#00,#98,#00,#01,#0e,#02,#08
	db #0a,#0d,#0f,#04,#0d,#c8,#11,#01
	db #03,#00,#00,#18,#03,#21,#d4,#0c
	db #d4,#0c,#10,#14,#09,#28,#0d,#01
	db #03,#00,#0b,#9b,#02,#5a,#0a,#0c
	db #ba,#0c,#b7,#18,#b9,#3c,#b7,#0c
	db #b3,#18,#b5,#3c,#b7,#0c,#ba,#18
	db #b9,#3c,#b7,#0c,#bc,#0c,#0f,#00
	db #00,#48,#0f,#04,#bf,#0c,#bc,#0c
	db #ba,#0c,#b9,#18,#ba,#18,#bc,#0c
	db #bf,#0c,#c1,#0c,#c3,#0c,#c5,#18
	db #c1,#18,#bc,#0c,#bc,#0c,#bf,#0c
	db #c0,#0c,#c1,#3c,#c3,#0c,#c8,#0c
	db #0f,#00,#00,#48,#00,#01,#01,#0e
	db #02,#19,#0a,#0d,#16,#0a,#00,#c0
	db #11,#00,#98,#0c,#9b,#0c,#9c,#0c
	db #9d,#3c,#9b,#0c,#98,#0c,#96,#0c
	db #98,#3c,#98,#0c,#9b,#0c,#9c,#0c
	db #9d,#3c,#9b,#0c,#98,#0c,#00,#48
	db #10,#04,#00,#01,#01,#0e,#02,#19
	db #0a,#0d,#00,#c0,#11,#00,#98,#0c
	db #9b,#0c,#9c,#0c,#9d,#3c,#9b,#0c
	db #98,#0c,#96,#0c,#98,#3c,#98,#0c
	db #9b,#0c,#9c,#0c,#9d,#3c,#9b,#0c
	db #98,#0c,#00,#48,#10,#02,#11,#00
	db #13,#01,#98,#0c,#9b,#0c,#03,#21
	db #0f,#04,#0d,#c8,#02,#08,#d4,#0c
	db #d4,#0c,#03,#00,#00,#18,#03,#21
	db #d4,#0c,#d4,#0c,#02,#19,#0f,#00
	db #03,#00,#9b,#0c,#98,#0c,#03,#21
	db #02,#08,#0f,#04,#d4,#0c,#d4,#0c
	db #03,#00,#00,#18,#03,#21,#d4,#0c
	db #d4,#0c,#02,#19,#0f,#00,#03,#00
	db #12,#02,#10,#02,#00,#01,#84,#00
	db #c4,#00,#01,#8c,#02,#08,#0a,#0d
	db #0f,#04,#0d,#c8,#11,#01,#03,#00
	db #00,#0c,#03,#21,#d4,#06,#d4,#06
	db #10,#34,#03,#00,#00,#0c,#03,#21
	db #d4,#06,#d4,#06,#01,#0a,#03,#00
	db #00,#0c,#03,#21,#d4,#06,#d4,#06
	db #01,#09,#03,#00,#00,#0c,#03,#21
	db #d4,#06,#d4,#06,#01,#08,#03,#00
	db #00,#0c,#03,#21,#d4,#06,#d4,#06
	db #01,#06,#03,#00,#00,#0c,#03,#21
	db #d4,#06,#d4,#06,#03,#00,#00,#0c
	db #03,#21,#d4,#06,#d4,#06,#01,#04
	db #03,#00,#00,#0c,#03,#21,#d4,#06
	db #d4,#06,#01,#02,#03,#00,#00,#0c
	db #03,#21,#d4,#06,#d4,#06,#01,#01
	db #03,#00,#00,#0c,#03,#21,#d4,#06
	db #d4,#06,#00,#0a,#00,#01,#01,#8e
	db #02,#18,#0a,#7a,#16,#0a,#00,#60
	db #11,#00,#98,#0c,#98,#06,#98,#06
	db #a2,#06,#a4,#06,#9a,#06,#9b,#0c
	db #9b,#0c,#9b,#06,#a5,#06,#a7,#06
	db #a2,#06,#9d,#12,#9d,#06,#9d,#06
	db #9b,#06,#9d,#06,#9f,#06,#a2,#0c
	db #a2,#06,#9d,#06,#96,#0c,#96,#12
	db #10,#06,#00,#f0,#00,#01,#01,#8e
	db #02,#18,#0a,#7a,#00,#60,#11,#00
	db #98,#0c,#98,#06,#98,#06,#a2,#06
	db #a4,#06,#9a,#06,#9b,#0c,#9b,#0c
	db #9b,#06,#a5,#06,#a7,#06,#a2,#06
	db #9d,#12,#9d,#06,#9d,#06,#9b,#06
	db #9d,#06,#9f,#06,#a2,#0c,#a2,#06
	db #9d,#06,#96,#0c,#96,#12,#10,#02
	db #09,#0a,#0d,#01,#0f,#03,#03,#00
	db #0b,#9b,#02,#18,#c6,#0c,#c3,#18
	db #c5,#12,#c5,#06,#c6,#06,#bc,#06
	db #c1,#0c,#c1,#0c,#c3,#0c,#bf,#18
	db #c1,#18,#c5,#0c,#c6,#06,#c6,#06
	db #c1,#0c,#c3,#0c,#c6,#18,#c5,#3c
	db #c3,#0c,#c8,#0c,#0f,#00,#00,#24
	db #0f,#04,#cb,#0c,#c8,#0c,#c6,#0c
	db #cb,#0c,#c8,#18,#ca,#12,#ca,#06
	db #c8,#06,#cd,#06,#d1,#0c,#cd,#0c
	db #d1,#0c,#d2,#18,#d1,#12,#d2,#06
	db #cd,#06,#cb,#06,#ca,#0c,#ca,#0c
	db #c8,#0c,#c8,#18,#ca,#3c,#cf,#0c
	db #c8,#0c,#0f,#00,#00,#48,#00,#c8
	db #00,#01,#00,#00,#00

;
.stop_music
.l0980
;
	xor a
	ld (l7200),a
	ld a,#08
	ld c,#00
	call l0996
	ld a,#09
	ld c,#00
	call l0996
	ld a,#0a
	ld c,#00
.l0996
	di
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ei
	ret

; play &7201

;org #0971
;ld a,(#7200)
;or a
;ret nz
;ld hl,#7900	; init
;xor a
;ld (#7200),a
;jp #720a

.game_name
	db "Short Circuit",0
.game_year
	db "1987",0
.game_publisher
	db "Ocean Software",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
